home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / grafik / imageengineerv3.1 / extra / dopus5 / arexx / ie_import.dopus5 < prev   
Text File  |  1996-07-14  |  2KB  |  76 lines
  1. /*
  2. ** $VER: IE_Import.dopus5 1.0 (13/7 Stockholm/Sweden)
  3. ** Copyright © 1996 by Patrik M Nydensten 
  4. **
  5. ** Imports all selected image files in the SRCE directory into IE.
  6. ** Requires Image Engineer 3.0 or higher and DOpus 5.0 or higher.
  7. ** Call: (AREXX) DOpus5:arexx/IE_Import.dopus5 {Qp}
  8. */
  9.  
  10. options results
  11. lf='0a'x
  12.  
  13. parse arg portname
  14. if left(portname,5)='DOPUS' then address value portname
  15. else exit
  16.  
  17. if ~show(ports,'IMAGEENGINEER') then do
  18.      dopus request '"Could not locate IEs arexx port!" OK'
  19.   exit                 
  20. end                 
  21.  
  22. lister query source                /* get source handler */
  23. handle = result
  24. if RC~= 0 then exit
  25.  
  26. lister query handle selfiles ':'   /* get selected file names */
  27. sel_files = result
  28.  
  29. lister query handle numselfiles    /* get number of selected files */
  30. num_files = result
  31. if num_files = 0 then exit
  32.  
  33. lister query handle path           /* get current file path */
  34. file_path = strip(result,B,'"')
  35.  
  36. lister set handle progress num_files 'Importing images...'
  37.  
  38. do i = 1 to num_files  /* load loop */
  39.  
  40.   address value portname
  41.  
  42.   parse var sel_files image_file ':' sel_files
  43.   image_file = strip(image_file,B,'"')
  44.  
  45.   lister set handle progress name image_file  /* update progress display */
  46.   lister query handle abort                   /* check if aborted */
  47.   if result then do
  48.     lister clear handle progress  /* exit progress display mode */
  49.     lister refresh handle 'full'  /* update lister display */
  50.     dopus request '"User aborted..." OK'
  51.     lister clear handle abort
  52.     exit
  53.   end
  54.  
  55.   address 'IMAGEENGINEER'
  56.   'OPEN' '"'||file_path||image_file||'"' 'COLOUR'
  57.   if (RC ~= 0) then do
  58.     address value portname
  59.        dopus request '"Failed to load image' image_file 'into IE!" OK'
  60.   end
  61.   else do
  62.     address value portname
  63.     lister select handle image_file off  /* delselect file if used */
  64.   end
  65.  
  66.   address value portname
  67.   lister set handle progress count i    /* update progress display */
  68.   lister refresh handle full            /* update lister display */
  69.  
  70. end  /* end of load loop */
  71.  
  72. lister clear handle progress    /* exits progress display mode */
  73. lister refresh handle full      /* update lister display */
  74.  
  75. exit
  76.